﻿Imports System.Data
Imports System.Windows.Forms
Imports System.Data.SqlClient
Imports System.IO
Public Class ManHinhChinh
    Public k As String
    Dim i As Integer

    Private Sub NhàToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NhàToolStripMenuItem.Click
        If i = 1 Then
            Dim fr As New QuanLyNha()
            fr.ShowDialog()
        Else
            lbDangNhap.Visible = True
            lbDangNhap.Text = "Bạn chưa đăng nhập vào hệ thống"
        End If
    End Sub

    Private Sub QLNhânViênToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QLNhânViênToolStripMenuItem.Click
        If i = 1 Then
            Dim fr As New QuanLyNhanVien()
            fr.Tag = k
            fr.ShowDialog()
        Else
            lbDangNhap.Visible = True
            lbDangNhap.Text = "Bạn chưa đăng nhập vào hệ thống"
        End If
    End Sub

    Private Sub QLNgườiChoThuêToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QLNgườiChoThuêToolStripMenuItem.Click
        If i = 1 Then
            Dim fr As New QuanLyNguoiChoThue()
            fr.ShowDialog()
        Else
            lbDangNhap.Visible = True
            lbDangNhap.Text = "Bạn chưa đăng nhập vào hệ thống"
        End If
    End Sub

    Private Sub QLNgườiThuêToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QLNgườiThuêToolStripMenuItem.Click
        If i = 1 Then
            Dim fr As New QuanLyNguoiThue()
            fr.ShowDialog()
        Else
            lbDangNhap.Visible = True
            lbDangNhap.Text = "Bạn chưa đăng nhập vào hệ thống"
        End If
    End Sub

    Private Sub btnDangNhap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDangNhap.Click
        lbDangNhap.Visible = True
        Dim NguoiDangNhap As New KiemTraUsername_DTO()

        If i = 1 Then
            MessageBox.Show("ban da dang nhap roi!")
        Else

            If txtUsername.Text = "" And txtPassword.Text = "" Then
                lbDangNhap.Text = "bạn chưa điền thông tin!"

            Else
                NguoiDangNhap.UserName = txtUsername.Text
                NguoiDangNhap.PassWord = txtPassword.Text
                If KiemTraNguoiDangNhap_BUS.KiemTraDangNhap(NguoiDangNhap) = True Then
                    lbDangNhap.Text = "Bạn đăng nhập thành công"
                    i = 1
                    If txtUsername.Text = "admin" Then
                        k = "admin"
                    End If
                    txtPassword.Clear()
                    txtUsername.Clear()
                End If
            End If
        End If
    End Sub

    Private Sub btnDoiPassword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDoiPassword.Click
        If (i = 1) Then
            Dim fr As New ThayDoiPassword()
            fr.ShowDialog()
        Else
            lbDangNhap.Text = "bạn chưa đăng nhập"
        End If
    End Sub

    Private Sub btnThoatTaiKhoan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoatTaiKhoan.Click
        If i = 1 Then
            i = 0
            lbDangNhap.Visible = False
            'Form1_Load(sender, e)
        Else
            lbDangNhap.Visible = True
            lbDangNhap.Text = "Bạn chưa đăng nhập"
        End If
    End Sub

    Private Sub btnThoatHeThong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoatHeThong.Click
        Me.Close()
    End Sub

    Private Sub NgườiChoThuêToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NgườiChoThuêToolStripMenuItem.Click
        If i = 1 Then
            Dim fr As New ThongTinNguoiChoThue()
            fr.ShowDialog()
        Else
            lbDangNhap.Visible = True
            lbDangNhap.Text = "Bạn chưa đăng nhập vào hệ thống"
        End If
    End Sub

    Private Sub NgườiThuêToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NgườiThuêToolStripMenuItem.Click
        If i = 1 Then
            Dim fr As New ThongTinNguoiThue()
            fr.ShowDialog()
        Else
            lbDangNhap.Visible = True
            lbDangNhap.Text = "Bạn chưa đăng nhập vào hệ thống"
        End If
    End Sub

    Private Sub TheoTênToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TheoTênToolStripMenuItem.Click
        If i = 1 Then
            Dim fr As New TKTheoDiaChi()
            fr.ShowDialog()
        Else
            lbDangNhap.Visible = True
            lbDangNhap.Text = "Bạn chưa đăng nhập vào hệ thống"
        End If
    End Sub

    Private Sub TheoNhàToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TheoNhàToolStripMenuItem.Click
        If i = 1 Then
            Dim fr As New TKTheoGia()
            fr.ShowDialog()
        Else
            lbDangNhap.Visible = True
            lbDangNhap.Text = "Bạn chưa đăng nhập vào hệ thống"
        End If
    End Sub

    Private Sub TKTheoSốLượngNgườiỞToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TKTheoSốLượngNgườiỞToolStripMenuItem.Click
        If i = 1 Then
            Dim fr As New TKTheoSoLuongNguoiO()
            fr.ShowDialog()
        Else
            lbDangNhap.Visible = True
            lbDangNhap.Text = "Bạn chưa đăng nhập vào hệ thống"
        End If
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        If i = 1 Then
            Dim fr As New TheXacNhan()
            fr.ShowDialog()
        Else
            lbDangNhap.Visible = True
            lbDangNhap.Text = "Bạn chưa đăng nhập vào hệ thống"
        End If
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        If i = 1 Then
            Dim fr As New ThemNhanVien()
            fr.ShowDialog()
        Else
            lbDangNhap.Visible = True
            lbDangNhap.Text = "Bạn chưa đăng nhập vào hệ thống"
        End If
    End Sub

    Private Sub ManHinhChinh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim data As DataTable = NhaMoiDang_BUS.LayDuLieuNhaMoiDang()
        DataGridView1_NhaMoiDang.DataSource = data
        DataGridView1_NhaMoiDang.AutoResizeColumns()
        DataGridView1_NhaMoiDang.AutoResizeRows()
        btnDangNhap.Visible = True
        'lbDangNhap.Visible = True
        lbThoiGian.Text = Now.Hour & ":" & Now.Minute
        txtUsername.Text = "admin"
        txtPassword.Text = "123"
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        lbThoiGian.Text = Now.Hour & ":" & Now.Minute & ":" & Now.Second
    End Sub

    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        If i = 1 Then
            Dim fr As New LayDLExcelNguoiChoThue()
            fr.ShowDialog()
        Else
            lbDangNhap.Visible = True
            lbDangNhap.Text = "Bạn chưa đăng nhập vào hệ thống"
        End If
    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        If i = 1 Then
            Dim fr As New LayDLExcelNhanVien()
            fr.ShowDialog()
        Else
            lbDangNhap.Visible = True
            lbDangNhap.Text = "Bạn chưa đăng nhập vào hệ thống"
        End If
    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        If i = 1 Then
            Dim fr As New LayDLExcelNguoiThue()
            fr.ShowDialog()
        Else
            lbDangNhap.Visible = True
            lbDangNhap.Text = "Bạn chưa đăng nhập vào hệ thống"
        End If
    End Sub
End Class
